CLEAR ,,,10000
DIM CARA%(4500)
A1$=GETS$("systext",1)
A2$=GETS$("systext",2)
A3$=GETS$("systext",3)
CLRF "systext"
GEAR LOAD "イメージ1","B:主人公.TIF"
VIEW "イメージ1"
GET@A(223,100)-(337,238),CARA%
SAVE@ "CARACTER.ABC",CARA%
MOUSE 0
MOUSE 1,280,169,0
FLAG=-1
WHILE FLAG
CX=MOUSE(0):CY=MOUSE(1)
PUT@A (CX-57,CY-69)-(CX+57,CY+69),CARA%
IF (CX>267 AND CX<318) THEN IF (CY>236 AND CY<288) THEN PUTS "SYSTEXT","MIKAN",1:FLAG=0
IF (CX>0 AND CX<161) THEN IF (CY>46 AND CY<182) THEN PUTS "SYSTEXT","RYO",1:FLAG=0
IF (CX>501 AND CX<542) THEN IF (CY>48 AND CY<109) THEN PUTS "SYSTEXT","MARIO",1:FLAG=0
IF (CX>529 AND CX<596) THEN IF (CY>386 AND CY<445) THEN PUTS "SYSTEXT","UNZEN",1:FLAG=0
WEND
VIEW END
PUTS "systext",A2$,2
PUTS "systext",A3$,3
EFFECT VERTICAL(OPEN)
GO "ページ2/音楽1"